home *** CD-ROM | disk | FTP | other *** search
- property ancestor
- global gDBPictObjList
-
- on new me, buttonName, castName, xSprite, xLoc, descendant
- ancestor = new(script("generic Button"), buttonName, castName, xSprite, xLoc, me)
- return me
- end
-
- on performFunction me
- MyObj = getaProp(gDBPictObjList, GetObjProp())
- SaveObj = GetSaveObj(MyObj)
- SaveText(SaveObj)
- return me
- end
-
- on buttonLoc me, size
- return me
- end
-